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r  i  n  €  £  x  s  mp  *-  £  r  ^  i  d  d  d  s  r ; 
Plat  f  o  rrns  "  game  .  hs  Gi  L 
j  o  u  m  u  s  t  r  u  n  a  c  r  o  s  s  3  d  i  f 
screens. i  c o L  tectin g  b a g s  o 
s  n  d  d  eposmng  *  h  e  rn  i  n 
m  i  n  e  r  s  c  a  r  i «  you  are  n  o  *. 
i  n  t h e  go  L d  rn ins,  fce  c a u s ■ 
band i  is  are  t*u si  i y.  c  n  a  s  i  n 9 
you.  The  bags  of  '  gold  rn 
d  r  0  p  p  e  d  0  n  t  h  e  b  a  rwd  i  t  s  1 0 
x h e rn  un  cons  c  i  o u s  ■‘for  a • 
p i  c  k  axes  cars  a  is o  b e  u s ■ 

s  L  0  u.t  X  h  e  rn  d  own  •  There 

q u  i  c  k  -rn 0  v  ing  mine  carts 
u 0 u  can  hop  i n 1 0  to  g e t 
f  r  OiTi  y  0  y  r  p  y  r  3  y  3*  r  s  .*  3  s  hip 

£  1 3  v  3  t.  0  r  3  x  orno  o  t.  h  9  r  3  p  h  i  c : 

d  rs  Lsn  t  i£s  3  p  3  c  3  rn  3  &  £  1  j-,  2 ; 
9  r  £  3  1  f  u  n  1 0  p  l  3  y  * 
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R NT  ATTACK 

i~  r  0  m  u  u  i  c  s.  s  i  L  v  a  .1  t  h  i  s  is 
c  L a s s i c  game  and  rig h t  f u L  L y  s 0 
(-* i  t h  amazing  xh  ree  d  i rn e n s  i  0 n a 
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d  i.f  ferent  angles,  and  a  scan 
UJh 1  i  c h  points  >4 o u  in  the  r  i  g h  t 
direction.  Uh e n  I  s  aw  ”  t  h e  ‘  3D 
graphics,  and  f o u n d  that  I  c 0 u L d 
c  l  i  rn  fa  u  p  b  u  i  l  d  i  n  g  s  a  n  d  ~  o  v  e  r 
wa  l  Is  ,  ±  was-  amazed  .  .  fin  ex¬ 

pert  l y  written  progr am ,  t  h  V  s 
game  will  continue  to  entertain 
for  a  long  time. 
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3D  TANK  DUEL 

Based  on  an  old  ,  arc  a d e 
favorite,  3D  FflNK  DUEL  from 
Real  — T  i  rn  e  i  s  n  0  t  too  origins  i  , 
but  is  very  entertaining.  ' Drawn 
in  s  p  l  e n d i d  3D  line  graphics, 
y  — 5  y  ^  c  3  v  £  L  3  c  r  o  3  3  3  h  r»  t  7  i  & 

landscape  in  go u  r  tank.  Th ere 

are  basically  3  different 

enemi  e  s  wh  i  c  n  can  be  d  e s- 1  r  o  y  e  d 
e  n  erny  t  a  n  k  s  ,  f  l  y  i  n  g  s  a  u  c  e  r  s  'i  and 

s  rn  o  o  t  h  l  y  and  realistica  1 1  y  q  r  o  w 
in  size.  i  can  n o t  say  t o o  mu  c H 
f  o  r  t  h  e  c  omp  l  e  x  i  t  y  o  f  t  h  i  s  g  arne  , 
b  u  t  the  graphics  are  s  t  u  n n i n  g 
and  the  feeling  o f  mo v erne n  t  i i 
.very  real. 

-!RlK  h N D  !  “ii  BEANSTALK 

The  best  i  can  say  for  thi=. 
g  afue  rom  i  h  o  r  is  thst  it  •,  ±  s  _ 
t  r  erne  l  y  d  i  f  f  i  c  u  It.  A  f  t  e  r  t  r  y  I  n g 
my  best  at  several  sittings  : 
have  not  yet  even  been  ihfp ‘  tn 
get  past  the  first  "rF^nl 
Co  n  t  r  o  l  Ling  da  r  k  .  u n  1 1  m, , c  +  «  T ; 

up  to  the  gi  an  t '  s’  “  rsi  t  i  p  -I 
c  o  1 1  e  c  t  hi  c.  t  re  as  u  res  '  w  i  t  h  o  u  t 
*-U*z2  Kin  9  hi  rn  y  p  -  on  t  h  0  f  i  r  •-  t 

screen.  Jack  mu  s  t  c  L  i  rn  b  ’  u  p  "the 
giant  v  i  n e  .  i  hi  s  game  r p c i !  i  - p •= 
Pixel  p  r  e  c  i  s  i  o  n  ,  a  n  d  t  h  e  ‘e  x  a  c  t 
light  c  0  u  r  s  e  rnu s- 1  be  t  a  ^  ? n  p  p  r  u 
t  i  me-  O  r_y  o  U  •'  l  l  q  u  i  r  jc.  L  y  ’  L  n  c.  p  “  ‘  T 
Life.  this  game  was  qu i t e  ~  s « i  r - 
cess  fu L  over  in  ‘ "Eng  land . 
.six  h 0 u  g  h  1  fin d  t  h  at  I  c  a n n n t 
quite  e  n  j o y  1 1  w hen  J  die  in  t  k  p 
fir s  t  ID  sec  0 n ds  o  f  playing'  t  h e 
g  a  m  e  . 

SORCERY 

i~  r  om  U i  r g  i  n  ,  this  g arrie  s e erne d 
v e  r  y  p  r om i s i n g .  Un  f  o  r  t  u n a  t  e l y . 

1  h a  v e  h a d  n o  s u  c  css s  in  getting 
it  1 0  w 0 r k >  X t  Loads  '  in  fine, 
bu  t  wh e n  the  g arne  starts.  your 
sorcerer  is  stub b o r  n L y  s  t  u  c  k "  at 
t  h  e  bo  1 1  om  o  f  the  scree  n  sn.j  i 
qu  i  c  k  Ly  k  i  l  Led  by  a  "nas  ty 
m 0 ns  te  r  .  j.  rn  s u  re  o  t h e  r s  ha  v e 
experienced  this-  p  r  o  b  l  ern  .  bu  t  if 
s o me one  h a s  f o u n d  a  w ay  to  "  f I x 
it,  please  w  rite  rn  e  c  /  0  5  .  L .  U .  G  * 
News L etter .  Th is  game  is  t ^  o 
good  to  pass  up! 
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have  made  arra i ngemen ts  for  Commercial  room  rates  at  the 


<1 
o 

Q  Z 
o  oi  <r 

-J  3  QC 


If  c 
JZ  o 

h-  - 

c  •* 
o  :> 
—  c 

4-f  ill 

C  Ml 
Of  Of 

Z  c. 


-  o 
t-  o  e 


-  .* 

•d  111  jz 


co  c 
•d 
•if  £ 


3  - 
C  13 

<n  c. 


-  «TJ  U  *-4  O 


£ 


c  b 
-  £ 
a  o 


u  AC 

c  c  c  * 

-  O  3 

Ml  C 

•Jl  Ml  '1>  -t)  b 

—  -  :>  3  -U 

•If  3  Of  .13  Ot 

~  3  3  £ 

O  *T>  O  <0  -if 

Z  a:  jz  cl  a 

•13  Of  •‘Of 

<!»£  o 

C-  J—  O  -M 


O  <1»  X  u 

O  I  3  Of  <r 


D  —  O 
I  O  -M 

*  £ 

mi 

<D  O*  Q. 

—  co 

£  Q.  1/1 

CL 

CM  o  «D 
\  JZ  CD 
~4  Ml  — , 

-  X  C 
Ul  .XI 

N  C  £ 


*+•  I  c  •— 


—  ai  ■*-> 

x  j:  — 

<1»  h-  3 


mi  c  —  »:o  <x»  ui 


O  if  •* 

V  b  l] 


3  —  O 

o  •»*  o 

T?  •*-'  LL 


E  b  *  H  z> 


c  O 
•ti  2! 
•/i  < 

•if  _J 
-*-*  JD  CO 
O  D  — 


•  "O  -M 

C.  .If  Ml 

•D  L.  tX 


+*  Z  mi  c  c 

^  j=  •-•  4*  Of  - 

ul  O)^  L  £  U 

o  —  o  -M  c 

i  — >  c  tf»  a.  o  — 

or/)  o 

X  O 

Ul  —  Ml  3  Of 

'IX  u  o  O  C  JZ  ' 

I  D  n  nS  ft)  -M 

^  -M  ,tj  — 

C  M*  ^  S- 


at 


»i3  c_  mi 

JZ  3  Of  >lf 

CO  <D  JI  J-» 

+>  +>  o 

<TJ  iL  C 

-  u  o  — 
c  O  z  £ 
c  — 

—  3  CM 


1/1  Of 

L.  £  *■ 

zj  a 
O  £  D 
u  c 

*  «T) 

£ 

il  D  00 

h  £  TJ  X 


Of  O  CO 
<  £  —  C 

•  'U  CL-M  O 

:  il  E  c 

i  o  i/l 

*4-  j£  L.  -*-• 

•  O  O  •+-  Of 

C-  z_ 

I  r-  Of  If 

>  - O  3 

.  *TJ  O  -  C 

i  I  £  0C  * 


£ 

3  - 


x  * 

Of  mi 
- 
i3  jZ 
Z  ^ 


LU 

I- 

to 

a: 

<r 

Z 

JZ  -M 

.. 

£ 

a 

^  Ml 

«. . 

UJ 

-  • 

h- 

»_ « 

—  Of 

Of 

(j 

-• 

(O 

H 

3  H- 

E 

z 

—  • 

<r 

c 

3 

CD 

CL 

C  Of 

IX 

:> 

UJ 

UJ 

H 

Of 

CM 

Q 

O' 

oc 

CO 

£  D 

CM 

v 

<1 

UJ 

i— i 

-M  CL 

in 

It) 

X 

-j 

CD 

a»  E  • 

M- 

•If 

I- 

<t 

Ul 

CJi  O  if 

c 

•  3 

IX 

o  a  i 

OI 

Ul 

CL  O 

+*  <r 

o 

00 

i—*  »-» 

> 

CO 

ItJ 

M  3 

3 

£  \  c 

JZ 

t-  H  o 

o 

Of 

3 

-  3 

Z 

O  Ml 

3 

UJ  z 

s-  c 

- 

■T) 

N 

h- 

M 

LL 

Ml  «lf  — 

n 

UJ 

<r 

1 

1 

1/1  4»  v  v 

3 

1— 

1 

1 

—  3  ~  M3 

V 

CO  CO 

1 

JZ  3  -TJ  C 

CO 

1 

~  -  3  C 

— 

-  UJ  - 

1 

1 

Z 

3 

3 

UJ  CL  V 

1 

1 

3  CM  u 

3 

z  a  h- 

C  ID  CO  c 

D 

V 

<r  o  ~ 

o 

o 

ll  jz  00  - 

0 

z  <r  CJ 

z 

Z 

CO  H  co  CJ 

>- 

o 

ill 

•  0 

Of  CL 


O  O 
X  6 


—  ui 
£  u 
£  - 
o  c 

U  O 
c_ 
u> 

c  u 

O  Of 
3  — 
C  UJ 


CJ1  ul  -* 

—  3  — 
ui 

Of  3  — 
O  c  - 
*  X 
—  * 
■if  Of  TJ 
£  ^ 

—  a»  X 

I - C- 

<J  4f 

1 

•  -  * 


flJ  U1  Q3  U  0> 


Of  •  o  O  O 

—  cd  £:  a  — 

*  -M  * 

Of  -  «L  CO 

o  o  <r  h  *• 

u  c* 

C-  -  Of 

if  •  Ui  Z 

<1  UJ  C  1 

'O  Of 

00  -  -M  .1 

\  *  -  D  Ml* 

aj  a  L‘ 


CO  JO 
\  Of 
IM 


-TJ  O  H*1 

O  U  3 


h 

to 


LU 

IL 

LL 

UJ 

h 

E 

,  i 
o 
u 


ll 

H 

<1 

J 

0 

z 

H 

(0 

\ 

x 

UJ 

z 

H 

h 

h 

tl) 

UJ 

1 

5 

H 

I 


O 

X 

o 


a 

z 

o 


x  m  i  if  £:  ai 


cO  >lf  'll  O  »if 

h-  'f  D  IL  Ml 


O  Ml  JZ  i/I  I—  TJ  Iji 


UL  lT>  cO 

Ml  jZ  Ml  (— 


X  Ml 

•-  —  Of  'If 

3  jD  •  •+-  Of 

c  E  c  c  ^ 

ai  O  'if 

iji  - 

-  Ml  -M 

O  -TJ 


jC  Ol 
O  C  'If 
—  £: 
E  3  -m 

o  c 

£_  ^  -m 
H-  -M  O 
Ml  C 
Ml  -m 
L  Df 
if  O  — 


D  E  Of 
CL  E  Ml 
E  O  1/1 


<n  u 

—  c 

OL 

Of  *o 


CL  b  'fl 
£  O  Ml 


X  Ml  *T>  •—  [X 

JD  Of  Of  H-  Ol  C  04 

XI  3  O  —  O  I 

3  3  us-  C  —i 

Of  O  —  Of  —  O 

—  - 

O  —  c  c  — 

Ml  Ml  'If  -m  iTl  Of  m3  (X 

c  1)£  O  E  U  I 

Oi/l-MCCOf  O  —• 

CL  -  -TJ 

mi  e  ^  auz  —  E 

O  D  c  4-»  u  «r  n 

3  c  O 

c  a  jz 

mj  CJi  —  <xi 

v  3  ii)  v  v  if)  <y 

3  c  O  £  .t)  -tj  3  —  • 

•If  Of  (_  *lf  Of  'M  jQ  Ml 

N  1  H  —  L.  C  E'UX 

-  4f  iji  O)  il)  Ml  *TJ 


•TJ  Ul  E 

a»  -  o 

c  jZ  u 
O  -M  s- 


—  C  Of 


u  if  u  cji 


u  •+- 

•y  - 
U  -M  -m 

—  c  c 

V  ll)  Ol 

o  E 

C  C  'If 


—  L. 

—  Of 

«  -M 

£ 


+*  jz  -c 

—  u 

c  o  — 

-  £  3 


X  iif 


•TS  m) 
•if  c_ 


•If 


3  ai 
c  c 
.n  - 


u 

-  -b 

no  c 
r-  c 
i  o 
•—  u 


c  c 

O  Of 


3  O 
Of 

•t)  3 
u  c 
O  ^ 


Ml  UO 
—  IX 
CM 
I 

c  — • 
o 


rt) 

U  I 

o  ~ 


t 

c  a 
c  C_ 

—  s- 

<t)  tit 

3  —  • 

T)  Xl  Ml 
£  'M  X 

•tJ  Ml  ii) 

a:  ui  3 

*lf  j c 
Of  u  CJI 

£  U- 

h-  •«  iZ 


JZ 

I/I  Ol 

Ml 

c 

•D 

Ul 

If  c 

O 

V 

— 

>  - 

•TJ 

o 

•D 

•D 

•z. 

•D  *D 

3 

— 

3 

6 

— 

•D 

•D 

iZ 

•D  >M 

CL 

•  • 

•J 

u  y 

j£ 

O' 

£ 

T 

U'i 

1  OJ 

• 

•l*  — 

4-* 

O 

m 

m  m 

JS 

X 

c  3 

o 

•J 

<D 

L_ 

c 

jD 

— 

■*“ 

u 

.13 

.y  — 

3 

n 

•M 

Ml 

Of 

c_ 

D 

c 

4^ 

CL 

Ml 

o 

o 

Ml 

Of 

-M  Ml 

*4- 

U 

1  : 

—  C_ 

C 

o 

•D 

£  O 

Ml 

c. 

C 

£  3 

Of 

>. 

L. 

o 

O  c 

— 

c 

UO 

CL 

o 

*-»- 

y  ,y 

Ol 

.13 

— 

•  — 

•— 

c 

Ml 

T) 

*4- 

c> 

— 

Ml 

JZ 

•D 

4-» 

D  3 

— 

3 

If 

•J 

in  • 

> 

•D 

O  C 

c 

U 

... 

*4- 

If 

X  <T3 

U 

•D 

If 

IJI  it) 

•D 

o 

*4* 

Ml  Ml 

•T) 

4-f 

c 

x  z 

in 

jz  Ul 

y 

V 

.ti 

u 

Of 

4f 

«3  c_ 

Ol 

iT) 

3  O 

L. 

L 

If 

C_ 

Of 

c 

Ml 

V 

JZ 

.13  jZ 

•D 

•M 

— 

• 

•  — 

— 

JZ 

u 

Z  U 

•D 

H- 

D 

li  ns 

c 

If 

C 

t_ 

c 

il 

cr 

Of 

o 

D 

c 

o  0 

It) 

O  'M 

Of 

Ml 

Of  3 

•— 

3 

0 

C 

A  - 

Z 

4^  Z 

c_ 

*f 

Of 

X 

c 

Ml 

D 

CD 

£ 

nf 

JZ 

c. 

D 

irt  Q. 

c 

c.  c_ 

D 

o 

■D 

jz  o 

CL 

u 

•D 

H- 

•D 

•D 

O  «D 

£ 

rr 

CM 

CJI  c_ 

— 

Ml 

S- 

3  - 

4-< 

Ml 

—  s- 

U 

Of 

a> 

D  C 

S- 

L  *4* 

Ml 

JZ 

Ml 

—  O 

CL  T) 

Of 

CD 

— 

Ml 

V 

O 

U  — 

Of 

00 

nj  — 

C. 

V 

Ml 

C 

c 

«  c 

S- 

CM 

c 

»— 

•Tl 

— 

—  ns 

o 

c  o 

— * 

o 

4-»  it) 

CL 

C_ 

■m 

JZ 

c_ 

— 

o  — 

c 

•— 

<D  U 

J 

Ml 

v 

o 

c 

-*-• 

3 

CD 

Of 

Ml  Ml 

-M  It) 

O 

— 

CJi  If 

c 

C 

c 

Of  — 

c_ 

^  c 

4-i 

s- 

3 

c  c 

•t) 

£ 

«D  • 

4>  Ol 

C_  4/ 

<u 

3 

—  o 

O 

^  Ml 

•TS  iD 

Ml 

-*-•  Ml 

c 

3 

U 

C  JZ 

v 

H 

C  CD 

c 

1-  CL 

Ml  — 

•D 

C  CL 

c. 

—  C 

o 

a> 

—  (Jl 

Ml 

c 

D  Of 

O 

c 

•— 

If  — 

a. 

Ol  Of 

u 

D 

(_  — 

a. 

<D 

^  3 

y  it) 

QC 

•D  CL 

Ol 

•tJ 

If 

CL 

£ 

O  .D 

C  D 

LL 

iy 

L. 

c. 

Ml 

D 

c 

c 

CL 

.rl  -o 

t. 

v 

•0 

— 

Ml 

oi  3 

— 

3  — 

X 

C 

"4- 

3 

n 

u 

C  ^ 

Of 

O 

4^  c 

— 

JZ 

3 

— 

•D  — 

•j 

u 

C 

C  * 

— 

o 

—  c 

4>  TJ 

E 

c  ' 

o 

Of 

D 

—  1* 

c 

+*  C 

•13 

•t)  • 

Of 

•  — 

£  Ml 

H- 

£ 

— 

Ml 

<r  - 

LL 

>  . 

:> 

If  C- 

nj 

3  ^ 

CL 

Ml 

T) 

•TS 

CL 

4>  0# 

L. 

C 

•D 

Of 

* 

j: 

o 

Ol 

N 

c 

u 

Ml 

if 

C 

U 

X  <D 

«D 

JZ 

o 

c_ 

-T)  — 

JZ  C_ 

'  D 

o 

u 

D 

Of 

D 

- 

3 

* 

UJ  — 

CL 

4>  CL 

>- 

Ml 

CD 

<1  * 

i 


U  £  2  j  f  t  n  €  E  t  c:  P 


This  is  by  no  means  the  first 
Spectrum  speech  program  but  it 
does  offer  far  greater  manipula¬ 
tion  of  speech  data  than  some  of 
the  other  efforts  that  have  ap¬ 
peared  in  magazines,  allowing 
crackles  and  noise  to  be  cut 
down  greatly.  Basically,  what 
the  program  allows  you  to  do  is 
to  record  speech  from  a  tape 
recorder  (along  with  a  few  extra 
noises  thrown  in  for  good 
measure!)  and  then  replay  this 
speech  in  your  own  programs. 

Begin  by  carefully  typing  in 
the  BASIC  listing  and  then  save 
it  to  tape  with  ‘SAVE 
"SPEAKWELL”  LINE  1.  When 
you  run  the  program,  you  should 
be  confronted  with  some  data 
details  at  the  bottom  of  the 
screen  which  are  fairly  self  ex¬ 
planatory  and  a  menu  of  op¬ 
tions: 

R  -  RECORD  SPEECH 

This  allows  vou  to  record 
your  voice  into  the  computer's 
memory  at  the  current 
record/play  speed.  When  you 
select  this  option  you  will  be  told 
to  press  any  key  to  start  recor¬ 
ding.  There  are  two  methods 
you  can  use  to  record  speech 
(experiment  with  both  methods 
to  see  which  gives  best  results): 

1 )  Record  your  voice  onto  a  tape 
and  play  this  tape  into  the  com¬ 
puter,  pressing  a  key  just  before 
the  speech  starts.  (Try  different 
volume  settings  until  you 
achieve  the  best  results). 

2)  Set  the  recorder  into  Record 
mode  (remove  any  tapes  in  the 
recorder,  find  the  small  switch  in 
it  which  checks  to  see  if  a  tape 
has  a  write  protect  tab,  press 
this  in  and  press  'PLAY'  and 
'RECORD'  on  the  recorder  at  the 
same  time),  press  a  key  and  start 
talking  into  the  tape  recorder's 
microphone. 

P  -  PLAY  BACK  SPEECH 

This  will  simply  replay  any 
speech  stored  in  memory  at  the 
current  record/play  speed. 


b’  e  :*  L  i  m P  i  V  r 

comm an  a  . 

A  -  ALTER  START  ADDR 
This  allows  you  to  alter  the 
start  address  from  which 
speech  is  recorded/played  back. 
If  there  is  a  lot  of  'noise'  from  the 
tape  recorder  at  the  start  of 
some  speech  you  can  get  rid  of  it 
by  altering  the  start  address  by 
trial  and  error.  (If  the  start  ad¬ 
dress  plus  the  length  of  data 
would  cause  the  data  to 
overflow  into  the  graphics  area 
of  the  computer  will  prevent  you 
from  using  this  value  —  lowerthe 
length  first  —  see  below.  It  will 
also  reject  any  value  below 
32855). 

L  -  CHANGE  LENGTH 

Allows  you  to  change  the 
length  of  speech  to  be 
recorded/played  back.  The  com¬ 
puter  will  prevent  you  from  us¬ 
ing  any  value  which  will  cause 

an  overflow  into  the  graphics 
area. 

S  -  CHANGE  SPEED 

Lets  you  change  the 
record/play  back  speed.  By  play¬ 
ing  back  at  a  different  speed  you 
can  alter  the  pitch  of  your  voice. 
The  slower  the  speed,  the  worse 
speech  will  sound.  (Values 
below  about  25  are  of  little  use). 
M  -  MEMORY  MANAGER 
A  useful  tool  that  allows  you 
to  move  blocks  of  speech 
around  in  memory.  Three 
parameters  are  required:  ad¬ 
dress  to  copy  from;  address  to 
copy  to  and  number  of  bytes  to 
copy.  If  'Invalid  address'  ap¬ 
pears  on  the  screen,  then  you 
have  tried  to  overwrite  either  the 
graphics  area  of  the  machine 
code.  If  you  wish  to  remove 
'noise'  that  was  recorded  before 
you  started  speaking,  findsthe 
start  address  of  the  actual 
speech  (using  'S')  and  enter  this 
as  the  address  to  copy  from. 
Enter  the  address  to  copy  to  and 
the  number  of  bytes  to  copy  and 
then  alter  the  start  address  to 
the  value  you  used  as  the  ad¬ 
dress  to  copy  to.  (Got  that?!!). 

T  -  TAPE  OPERATIONS 

This  prints  up  a  self- 
explanatory  tape  menu. 


10  BORDER  O:  PRPER  0:  INK.  7:  C 
LEAR  32757:  RESTORE  9520:  GO  SUB 
9350 

20  LET  SPEED =100:  LET  START =32 
355:  LET* LENGTH =32512 
30  GO  SUB  9733 

4-3  RESTORE  9720:  LET  K$=INKEY5 
53  FOR  F =1  TO  7 

53  READ  A$, LINE:  IF  A$=K$  THEN 
GO  SUB  LINE:  GO  SUB  9310 
73  NEXT  F 
33  GO  TO  40 

9233  PRINT  AT  17.0;  FLASH  1;"L  - 
LOAD  5  -  SAVE  R  -  RETURN” : 
PAUSE  1:  PAUSE  0:  PRINT  AT  17,0, 


9243  IF  INKEYS =” l”  THEN  GO  TO  92 
S3 

9253  IF  INKEr  S  =  " 5 "  THEN  GO  TO  93 
23 

9250  IF  INKEYS  =  " r ”  THEN  PAUSE  1: 
RETURN 

9273  GO  TO  9233 

9230  INPUT  "NAME  OF  FILE?  ” ; NS 
Snyfl  IF  LEM  N$ >10  THEN  PRINT  AT 
17,7;  FLASH  1;  " INVALID  FILE  NAME 
"  :  GO  TO  9233  •* 

9330  PRINT  AT  17 .0 . .AT  17 ■ 11;  FL 
ASH  1; "LOADING. . . ” :  LOAD  NSCODE 
9310  RETURN 

9323  INPUT  "NAME  OF  FILE?  ” ; NS 
9330  IF  LEM  NS >10  OR  N$="“  THEN 
PRINT  AT  17,10;  FLASH  1; “ INVALID 
NAME" :  GO  TO  9320 
9343  PRINT  AT  17,0..:  SAVE  N$COD 
E  START , LENGTH 

9353  PRINT  AT  17.13;  FLASH  1;”UE 
RIFY  (y/n) " :  PAUSE  3:  GO  SUB  951 
0:  IF  INKEYS ="n"  THEN  RETURN 
9360  PRINT  AT  17.10:  FLASH  1;”UE 
RIFYING . . " :  VERIFY  NSCODE 
9373  RETURN 

9330  INPUT  "ADDRESS  TO  COPY  FROM 
?  " ;  HL 

9335  PRINT  AT  17,0.  . 

9390  IF  HL <32355  OR  HL >65356  THE 
N  PRINT  AT  17,5;  FLASH  1; "INUALI 
D  COPY  ADDRESS":  GO  TO  9333 


9403  INPUT 

"ADDRESS 

TO 

COPY 

TO? 

" ;  Dfc 

9435  PRINT 
9410.  IF  BE 

AT  17.0.. 
c 32355  0 A 

DE: 

> 65366 

THE 

N  PRINT  AT 

17,2;  FLA 

5H 

1;  "im 

)f\LI 

D  DESTINATION  ADDRESS" :  GO  TO  94 
30 

9423  INPUT  "NUMBER  OF  BYTES  TO  C 
OPY 7  “ ; SC 

9433  IF  BC+DE >65367  OR  BC  +  HL  >553 
67  THEN  PRINT  AT  17.-9;  FLASH  1;" 
INVALID  NUMBER" :  GO  TO  9420 
9443  POKE  55521 ,DE-25S*INT  (DE/2 
5 fcO  :  POKE  55522, INT  (DE/255) 

94*0  POKE  65524 , BC— 256* INT  (BC/2 
56):  POKE  65525 . INT  (EC/256) 

94*3  POKE  55527, HL -256* INT  (HL/2 
56):  POKE  55523 . INT  (HL/256) 

9433  IF  BC  =3  THEN  RETURN 
9493  RANDOMIZE  USR  65520 
9533  RETURN 

9510  INPUT  "NEW  SPEED?  " ; SPEED 
9523  IF  SPEED <3  OR  SPEED >255  THE 
N  PRINT  AT  17,9;  FLASH  1; "INUALI 
D  SPEED" :  GO  TO  9510 
9543  POKE  32354 , SPEED 
9553  RETURN 

9563  INPUT  "NEU  LENGTH?  ” ; LENGT 
H 

9573  IF  LENGTH <1  OR  LENGTH + START 
>6*367  THEN  PRINT  AT  17,9;  FLASH 
1 ; "INVALID  LENGTH":  GO  TO  9563 
9593  POKE  32352 , LENGTH -256* INT  ( 
LENGTH/256) :  POKE  32353 , INT  (LEN 
GTH/256 ) 


9600  RETURN 

9*10  INPUT  "NEU  START  ADDRESS? 

" ; START 

9*23  IF  START <32355  OP  START  >6*3 
63  OR  START +LENGTH  >65367  THEN  PR 
INT  AT  17,3;  FLASH  1; "INVALID  AD 
DRESS":  60  TO  9510 

9*40  POKE  32353 , START -256*INT  (5 

TART/256):  POKE  32351 , INT  (START 
/256 ) 

9550  RETURN 


9**0  RANDOMIZE  USR  32333 
9*70  RETURN 

9*30  PRINT  AT  17.0;  FLASH  1;” 
**  ANY  KEY  TO  START  RECORDING 
PAU*E  1:  PAUSE  3;  PRINT  AT  17 
,AT  17,11;  FLASH  1;  "RECORDING 
9693  OUT  254,1-.;  RANDOMIZE  US 
27*3 

9730  BEEP  1,5 
9710  RETURN 


PRE 
,  0  , 
R  3 


Ox  >-  ~ 


%Zf 2  S?Tfl  " C  "  '  ?630  >  "P  "  ••  9660 ,  ••  a  ••  ,- 
**  t  ”SQ210 /9w  tl0  7  S  ”  ' 9510 '  “m**  >  9360  , 

9 Z?S  PRXNT  TRB  11; "SPEAKUELL" 
9/40  PKXWT  TAB  11;** - » 

EEC:h**PHINT  THP  6;**p  “  RECORD  SP 

95PEECH”N^  TflS  6;’*P  “  PLAY -BACK 

|y70DPRXNT  -TPS  6;  **R  -  ALTER  STR 

ngth*PPINT  'TflB  6;“L  ”  c»«nge  LE 

9790  PRXNT  TPS  6;  "5  -  CHANGE  SP 
666 

^^39  PRXNT_  ‘TPS  6;  **H  -  MEMORY  HP 
J ’5»‘-K  '  TRP  6;**T  -  TAPE  OPERPTXO 

IS--I=£-£NI-PT  19'e-:  "START  PDDR  O 
CH  DATA  :  ** ;  START 

yoH0  PKIHT  "END  ADDRESS  OF  SP EEC 

- • ** ; START+LENGTH 

2°2®  P9™X  “LENGTH  OF  S PEECh  DAT 

nhr-  ',kpib7t*i."  " ;  «l;  at  0,0;  **rec 

uRD.-PLhy  SPEED:  ** ;  SPEED;  ** 

^Si0  PRi-I  01  17,0,,:  RETURN 


50 

FOk  F  =32 758 

50 

RpAD  A:  POK 

70 

next  f 

90 

FOR  F =6 5528 

80 

RPAD  A ;  POK; 

10 

NeXT  F :  RETi 

20 

DhT A  243 , 42 

125 

Z  5,8, 14, 8,2; 

50 

DH ! H  67 ,0,0 

'7  ,=?H0  _DhT h  £4-3 , 4-£  ,  62  ,  123 , 237 ,91,6 

7 '55  '- 4  5  •*  x*;*_  >  -  >  £37 

67,0,0, 175 , 219 . 254- ,  23  , 
6PS  •  5 03 ill  ,  16 , 24-7 , 113 , 56 
££40  DH  i  h  66  ,  lj£6 . 71 , 16 , 254- ,  36  1 
9  4  ±I94?Zi 32  ,  £26 , 251 , 20 1.24-3  T  42  “ 
-  It?  ?2  i  XE*S  ,  237,91',  84 , 128 . 6 

L  L'-'  *  6-6  / £  •'  £33 , 9 , 203 . 9 

-T9  X5X  /  238 ,16,211 , 254 , 283 
'  56,66,126 , 71 , 15 ,254 
1.;  *'  5*  it?  £3'J  ,  Is 6  ,  55 , 122 . 179  .  27 , 
65'  /  £01 , 57 . 123 . 0 . 127 , 1 

gsi*  BLOCK  MOUE  MACHINE '  CODE 
£-£8  DhTA  17,0,0.1.0,0  "V-;  0  0  p- 
7 , 175 , 201  •*  '  '  '  w  ,  -  7  -- 


Bob*’ s  B i t.s 


H  o  w  d  y  o  u.  s  P  e  11  "  R  E  L I E  F  "  ?  M  a  ri  y  w  a.  y  •=•  a.  r  e  P  o  s  s  i  b  l  e  .•  b  u.  t  w  h  •=•  n 
y  o  u.  r  d  6'  a.  1  i  n  9  w  1 1  h  a  S  i  n  c  1  a  i  r  c  o  m  P  u.  t  e  r  i t  s  s  p  e  1 1  e  d  “ ft  E  R  C  0  d  i  s  c 
d r  i  v e  i  n  t e rf  a ce"  !  F  a s t  r e  1  i  e  f  f  r o m  1 '  s  1  o w  1  o a d ' '  p  a  x  n  a  n d  a 9 o  n y . 
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The  next  day  I  Placed  an  order  with  B .  G .  Micro  in  Dallas- 
Texas  for  two  half  hei9ht  DSxDD  drives-  Waitino  for  the  drives 
to  arrive  save-  me  some  time  to  experiment  and  use  the  RGB  output 
that  is  included  with  the  disc  interface.  This  is  an  extremely 
nice  feature  that  you  must  see  to  appreciate.  R  week  and  a  half 
later..  I  unboxed  two  brand  new  QUME  disc  drives  and  installed 
them  into  the  same  space  that  one  S3  •••"3D  drive  took  up  in  the 
d  i  s  c  c  a  b  i  n  e  n  t  -  I  w  a  s  i  m  P  r  e  s  s  e  d  -  a  9  a  i  n  !  ft  d  d  r  e  s  s  i  n  9  i  s  d  o  n  e  w  i  t  h 
.'  u  iM  P  e  r  s  o  n  e  a  c  h  d  r  x  v  e  a  n  d  t  h  e  t  e  r  m  i  n  a  t  o  r'-  r  e  s  i  s  t  o  r  D I P  i  n  t !  •  e 
last  drive  comP  1  e tes  ie  disc  "daisy  chain"  setup,  ft  trip  to  the 
Parts  store  completed  the  interface  cable  for  the  disc  drives. 

I  was  9ettin9  real  anxious. 

Inc  1  uued  w  i  tki  the  i  nt  erf  ace  is-  a  boot  disc  and  operations 
m  a  n  u  a  1 <  F  o  1 1  o  w  i  n  9  t  ki  e  i  n  s- 1  r  u  c  t  i  o  n  s  .■  y  o  u  i  n  s-  e- r  t  t  h  e  b  o  o  t  d  i  s  c  .• 
turn  on  tne  7b  -id be'  and  then  the  disc  drives.  The  screen  went 
black  tor  a  moment  then  showed  the  standard  2068  coPyri9ht 
"hello"  messaae.  Hbout  a  second  later  the  mes.sa.9e  11  DISC  ft  NftT 
R  U  7  ii  1  I N  G 1  *  a  P  P  O'  a  r  e-  d  a  t  t  h  e  s  c  r  e-  e  n  b  o  1 1  o  m «  N  o  w  t  h  i  s-  m  a  d  e  s  e  n  s  e 

- i nee  trie  disc  drives*  ha.d  not  been  turned  on  yet-  So  I  turned 
‘  emi  on  arid  the  screen  started  •  fi  1 1  i  n 9  from  bottom  to  top  with 
RbB  colored  squares.  Then  the  blocks  started  to  fill  with 
s  o  m  e  t  h  i  n  9  t  h  a  t  1  o  o  k  e  d  1  i  k  e  C  In  i  n  e  s-  e  c  h  a  r  a  c  t  e'  r  s- !  P  a  n  i  c  t  o  o  k  o  v  e  r 
and  the  main  breaker  was  Pulled.  Puttin9  all  my  senses  to  work.. 
I  felt  for  hot  chips.  None  were  found.  Smelled  for  smoke. 
Noth i n9  there.  Hmmmmm.  finally  I  decided  to  try  it  a9ain,  only 
t  h  i  s  t  i  m  e-  t  u  r  n  i  n  9  t  h  e  d  i  s  c  d  r  i  ••..•  e-  o  n  fir  s  t  .*  t  h  e  n  t  hi  e-  c  o  m  P  u  t  e  r . 
b  a  i  M  e  r  e-  s  u  1 1  s .  R  e  c  hi  e-  c  k  i  n  9  a  d  d  r  e  s*  s-  i  i  "i  9  a  n  d  t  r  y  i  n  9  a  n  o  t.  hi  e  r  i  n  t  e-  r  f  a  c  e 
c a b  1  e  d  i  d  n o t  hi e !.  p  .  I  re m o v e d  t- In s-  i  n t •=  r f  a c e  a n d  e  r  i  f  i  s  d  t h a  t 

the  3bbb  was-  work  i  n9  UK.  I  t  was-.  Resi9nin9  to  the  f  act  tha.t  I 
had  a  "bad"  disc  interface,  I  looked  at  the  £963  in  disbelief". 

I  finally  snapped  back  to  reality  after  doin9  six  minutes  of 
blank  itai-  •  i  1 19  '-.  a  *  k  .  a .  "loop  ins*  of  the  brain"  and  decided  to 
read  the  manual  for  the  third  and  last  time  before  I  9ive  uP . 
This  manual,  with  a  few  exceptions,  is  very  well  written.  Some 
hardware  k now  1  ed9_e_  is  assumed  for  installation  but  don't  let 
t  h  a  t  s  c  a  r  s  y  o  u  -  ft  t  R  C  U  s  u  P  p  1  i  e  s  s  n  o  u  9  hi  p  i  c  t  o  r  i  a  1  s-  a  n  d  p  r  i  n  t  i  n 
the  manual  to  9et  you  or  another  "hardware  oriented"  Person  to 
u  1 1 d e r £ •  t a  n d  t he-  s •  e  t u P  a n d  o p  e' r at  i  o n  P  r o c e- cl u r e- s- .  U n e  o  t  ro y  m n  1*1  m 
observations  since-  becomin9  a  TxS  user  is  that  "there  are  './ery 
few  T/b  users  who  are  HOT  "hardware  hackers". 


stran9e  thin  9  s  happen  that  make  you.  think 
o me body  u.P  there  KERLLV  does  like  me" !  Rs  I  Picked  u.p  the 
HER'-U  manua.  1  the  ed9e  cau9ht  in  the  Tub  t  Tiro  ex  Uomm-and 
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REM  Ci 

R  a 

Pratt 

50 

REH  Ii 

50 

Liz  i  a 

let 

£  =7  : 

70 

w  U  R  D  iz  j 

RIGHT  3  :  Ci 

50 

DIM  b 

n  S  ( 5 

3  :  D IM 

90 

DIM  h 

)  :  C* 

IM  X  ( u 

100 

LET  n 

110 
.  1  " 

LxZ  ]  fa; 

’l20 

FOR  i 

T  q  l 

i  3  =h  (  i 

130 

DRTR  - 

14-0 

FOR  i 

HD  X 

(  i  3  :  HI 

150 

DhTh 

b  ,  -  b 

«  a  .  -  b  . 

150 

REM 

130 

PR  TNT 

COMPUTi 

190 

PRINT 

f*  instructions 
BRIGHT  b;  hT  a 


ad  on  a  board o  f  10  by  10  squares 
on  w hi cn  a  r a s i t a d  I  settles  hip, 
2  Das t royers and  3  Frigates." 

200  PRINT  '“Each  ship  is  rep  res 
a n  t a d  bu  a  horizontal  n  r  prt ; 
cal  line  of  4*5 ,  3*D  or  2*F.  No 
t  up  0  ships  are  a  1 1 0  up  a  d  1 0  t  o  u  c 

h  each  other  in  any  direction.” 

210  PRINT  ’ "The  object  is  to  lo 
cate  a  n  -d  sin  k  the  c  0  m  p  u  tar's  s  h  i  p 
-•  before  it  sinks  yours,  A  scor 
a  of  16  up  ins." 

£20  PRINT  '  "Locations  are  re  fa 
rad  to  by  co-  ordinates  and  are 
chosen  by  pressing  the  latte 

r  f  0  1 1 0  up  a  d  by  t  h  a  number.  ” 

230  PRINT  BRIGHT  b , "  Press  an 
y  k a 4  1 0  c on t i n u a  " 

210  PRUSE  a 

250  HtM  Start  of  screen  setup 
260  ruR  i =b  TO  21:  PRINT  AT  i , a 
..i  $  :  NEXT  i 

270  PLOT  d  .34-:  DR  HU  a.  131:  DRAU 
251, a:  DRRU  a. -131:  DRRU  -251 ■ a 
230  FOR  i =5  rn  123  STEP  123 
290  PLOT  i  ,37:  DRRU  a  ,  125  ■  npRii 
117, a:  DRRU  a, -125:  DRRU  -117, a 

300  NEXT  i 

310  PRINT  AT  d , b ; "HUMAN  SCORE- 
" RT  d  ,  17  ;  " COMPU  SCORE :  " 

320  Print  rt  4., 3;  “rbcdefghi.j"  ;  a 

T  4- ,  19  ;  "A3CDEFGHIU" 

330  FOR  i =a  TO  9 

34-0  PRINT  RT  6  +  i  ,  b ,  1  ;  RT  6  +  1 ,17; 

1 :  MtXT  i 

4-00  reh  **  Sets  up  the  boards  * 
4-10  PAPER  4-:  INK  4-.  FOR  i  =d  TO 
13  STEP  IS:  PRINT  RT  5 , i ; ” XXXXXX 
X X  X XXX" ; HT  1 6  ,  i ;  “ X X X  X X X X X X X X X ' ' 
4-20  NEXT  i 
430  FOR  i =5  TO  15 

440  PRINT  RT  i,d;"X";AT  i.l3;”X 
" : AT  i,13;"X";AT  1 .29; "X" 

450  FOR  j  =3  TO  12:  LET  k  =  (i*.j) 


450  PRINT  PAPER  a  :  BRIGHT  f  C  K  —  I 
NT  1.  k  p  p  *  d  P  ;  RT  i  ,  j  ;  "  “  ;  RT  i  ,  j  +1S  , 

" -  NeXT  j 

4,0  NE.'-.T  i  :  Pr-iPER  a  :  INK  a 
500  REH  ***  Enter  the  ships  *** 
S20  BRIGHT  b 

630  Gu  SUB  4000 :  GO  SUE  5O0O 
£>40  LET  dir  =a  :  LET  max  =3  :  LET  r 
l  5 -  t  =3  :  LET  C  las  t  =a  :  LET,  h  =3  :  LE 
T  g =a :  GO  SUB  990 
650  IF  RND  '  . 5  THEN  GO  TO  330 
300  PtM  ***  Ha  in  game  loop  *** 
310  GO  SUB  1000:  REM  Human  move 
320  IF  h  =16  THEN  GO  SUB  3000:  P 
PINT  AT  19,  a;  "Human  upon  ";h,"  to 
"  ;  g :  STOP 

330  Gu  S US  2000:  REM  Comps  move 
340  IF  g=16  THEM  GO  SUB  3000:  P 
PINT  RT  19 , a ; “Computer  won  ";g," 
to  " ; h :  STOP 
350  GO  TO  310 

930  REH  ****  Score  update  **** 
990  PRINT  AT  d , 13 ; h , HT  d .29; 4 : 
RETURN 

1000  REM  ****  Human's  move  **** 
1010  LET  ,j=5  — b*  fg  (fa)  <3)  —  be-  (g  (d)  •; 
5)  -be-  (g  (dp  <3)  -b*  ( g  (3)  <5)  -bain  (3) 

<  4) 

1020  IF  j<d  THEN  LET  j =d 
1030  GO  SUB  3000:  LET  pn= =h 
1050  PRINT  RT  13, a; "HUMAN  has  "; 
j ;.  "  moves.  Enter  co-ords" 

1060  FOR  k=b  TO  .j  :  LET  r  =a  :  LET 
C =a :  LET  PCS =p OS +4 
1090  PRINT  RT  21  .  b;  “Move  Number 
FLASH  b ; AT  21,16;”?";:  PRIN 

1100  GO  SUB  7000:  LET  C=C+1S 
1160  PRINT  AT  19  ,  pos  ;  bs  (  c  —3)  ;  b-S  ( 
r  -  £.  J  ;  RT  2 1 ,  a  ;  j  $ 

1170  IF  HTTP  f  r  ,  C  )  =37  THEN  PRINT 


i  s  fa  L  p  s 

90 

LET  d  =2 : 

1150 

LET 

ui  $  =5C 

REE  NS 

(  r  ,  c  3 

1200 

TF 

THEN 

GO  SUB  • 

INK  a :  B 

tqn 

TO  1 

27y 

1210 

IF 

^  ^  =  *  l5  ” 

THEN 

LET  g  (b)  =g  ( 

5  (  b  }  :  D  IM 

b  3  —  b 

J  5  5 

1220 

IF 

WS=”D" 

THEN 

LET  q  id)  =g  (d 

:  DIM  u(0 

t  —  b 

1230 

IF 

¥$  =  ”F” 

THEN 

LET  g  (3)  =g  (3 

3  -b 

tp.ECDEFG'hl 

1240 

PRINT  PAPER  d; 

INK  e ;  FLAS 

H  b; 

RT  r 

■ .  C  ;  W  $  : 

PRINT  AT  20, pos; 

>  h  (  i  )  :  LE 

**  **  ; 

;  “ 

£ J' 

1250 

GO 

SUB  6000 

12&0  LET  h  =h  +  b  •  (30  SUB  990 

1270  PRINT  PAPER  d;  INK  e;  BRIG 
HT_ b ; RT  r  .  c ; »$• 

1230  IF  h  =16  THEN  RETURN 
1290  NEXT  k. 

1300  RETURN 

1999  REH 

2000  REM  ***  Computer's  move  *** 
2010  LET  .j=5-b*(h  (b)  <-3)  -b*  >  h  i  d  'i  < 
5)  -b*  (h  (d)  < 3 P  -b*  lh  (3)  •; 5)  -fa*  (h  ( 3  1 

<4) 

2020  IF  j  ;d  THEN  LET  j =d 
2030  GO  SUB  3000:  LET  pn= =b 
2040  PRINT  AT  13 , a ; "COMPUTER  has 
" ; j ; "  moves  ,  " 

2050  LET  r=r.last:  LET  C=Cl3St 
20&0  FOR  k  =b  TO  .i  :  LET  P0£  =pn=.+4 
2070  IF  dir>a  AND  max:>a  THEN  GO 
TO  2500 

2100  REH  ****  Random  choice  ***- 
2110  LET  r =INT  (RND *10} +6 :  LET  C 
=INT  (RND *10 P +3 

2120  IF  HTTP  (r,C)=S7  OR  RTTR  (r 
,  C )  =32  THEN  GO  TO  2110 
(=150  REM  Isolated  square  che r t 
2160  LET  v =a :  FOR  i =b  TO  7  STEP 
d 

2170  LET  a  1 1  r  =attr  (  r +y < i  )  ,  c +x  ( i 

)  } 

2130  IF  a  1 1  r  =37  OR  d  1 1  r =32  OR  at 
t  r  =36  THEN  LET  v  =v + . 25 
2120  NEXT  i:  IF  v =b  THEN  GO  TO  2 
110 

2200  REH  **  Ship  close  check  ** 
2210  LET  v =a :  FOR  i =b  TO  3 
2220  IF  RTTR  (  r+>4  (i  )  ,  C+X  (i  )  1  =37 
THEN  LET  v=b 

2230  NeXT  i  :  IF  V  =b  THEN  GO  TO  2 
110 

2300  Gu  SUB  3000:  LET  W$=SCREENS 

( r  ,  c  ) 

2310  IF  wS  =  ”  "  THEN  GO  SUB  6500- 
PRINT  RhPER  d;  INK  d;  BRIGHT  b; 
AT  r , C ; "X" :  GO  TO  2410 


0 

IF  «S="B”  THEN 
L  ET  m  3  X  =3 

LET  h 

(  b  3 

=h  (  b 

0 

IF  w S  ="D "  THEN 
LET  m 3  X  = d 

LET  h 

id  3 

=h  id 

.0 

IF  W$="F"  THEN 
L  ET  max  =  b 

LET  h 

C  3  3 

=h  (3 

■0 

PRIMT  PAPER  d: 

;  INK 

e ; 

FLhS 

H  b;  RT  r,C,W$:  PRINT  AT  20,POS, 
“  *  "  ;  w  $  ;  "  ■* 

2350  GO  SUB  6000 


2 3  / O  lET  g  =g  -fb  :  GO  SUB  9953 
2330  LET  d i r =h*d* (RND  . 5' 

2390  PRINT  POPFH  ;  JNK  p- •  BRIGH 
T  b ; AT  r  .  c ; ”*  ” 

2400  IF  g  =16  THEN  RETURN 
2410  NEXT  K 

2420  LET  rlast=r:  LET  c  t  a S  t  =  c 
2430  PAUSE  a*e 
2420  RETURN 

2500  REM  ***  Search  routine  *** 
2600  LET  r  t  =r  +y (dir)  :  LET  c  t  =  C +x 
(dir) 

2 1>10  IF  ATTR  (rt.Ct)=37  THEN  LET 
r  =r  t :  LET  C  =  C  t :  GO  TO  2600 
2620  Ir  SCREENS  (rt.ct)=“  "  THEN 
LET  r 1  =  r  t :  LET  Cl=C  t :  LET  d i r =d 
i  r+4-5*  (dir  =5  >  — 10*  I  d  i  r  =7  1  *  R  Q  TO 
2300 

2630  IF  ATTR  ( r t  . C t 1  =32  OP  PTT5 
t  r  t  ,  ct)  =36  THEN  LET  d i r  =d i r *4-6* 
(di  r  =£>)  —10*  (di  r  =7)  :  GO  TO  2500 
2540  IF  SCREENS  (rt . ct) <>"  “  THE 
N  LET  rl=rt :  LET  r=rt:  LET  C 1=C  t 
LET  c=Ct:  GO  TO  2300 
2300  ReH  ***  Succesive  hi ts  *** 
2310  GO  SUB  3000:  LET  UP$=SCREEN$ 
( r  1 ,  c  1 ) 

2320  IF  up 3  ="  "  THEN  GO  SUB  5500- 

PRINT  PAPER  d;  INK  d;  BRIGHT  fa; 
AT  rl.cl; "X":  GO  TO  2430 
2330  IF  W$=”B"  THEN  LET  h (b) =h (b 
)  -b 

2340  IF  wS="D"  THEN  LET  h(d)=h(d 
)  -b 

2353  IF  w$=”F”  THEN  LET  h(3)=h(3 
)  -b 

2350  PRINT  PAPER  d ;  INK  a  ;  FLASH 
b;RT  r,  1 ,  cl;  w  5 .-  print  rt  20, pos; 
"  *  "  ;  w  S  ;  *’  *  " 

2370  GO  SUB  500.0 

2330  LET  3  =9  *  b  :  LET  fit  a  X  =ffl  a  X  -  b  :  ,  G 
0  SUB  990 

2390  IF  max =3  THEM  LET  dir=3 
2900  PRINT  PAPER  d;  INK  p ,  BP I AH 
T  b; AT  rl.cl: ” * " 

2920  GO  TO  2400 

3000  PRINT  hT  19 , POS ; bf 1 c +3)  ; fa$  f 
r-5) :  PAUSE  30:  RETURN 
4000  RtH  ****  Human's  Ships  **** 
4010  GO  SUB  3000:  LET  pos=3:  LET 

bad  =4700 

4020  PRINT  RT  13. a; "HUMAN  SHIPS- 
enter  start  co-ords  fl—J  ,  0-9  , 
R  -  Right  or  U  -  Up" 

4025  PRINT  RT  20,9;  PAPER  5 ;  ** 

4030  FOR  n =b  TO  6 

4035  PRINT  AT  21.a;.i$:  PAUSE  a  *e 
4040  LET  r  2a  ■  LET  c  =a  •  LET  z  =3  • 
LET  X =5 

4050  IF  ri=b  THEN  PRINT  AT  21 , 3  ;  ” 
Battleship  (4  squares)  "; 

4050  Ir  n=d  OR  n =3  THEN  PRINT  AT 
21 ,a ; "Destroyer  "+STRS  (n-fa)*” 
(3  squares)  "; 

4070  IF  n>3  THEN  PRINT  AT  21, a;" 
Frigate  "+STRS  ( n -3 ) + ”  (2  square 

s )  “ ; 

4030  PRINT  AT  21.26;  FLASH  b;”“" 
; :  PRINT  "  " : 

4100  GO  SUB  7300 

4150  Ir  INKEYS =" r “  OR  INKEY$="R" 
THEN  LET  Z  =  b :  PRINT  "R":  GO  TO 
4120 

4173  IF  INKEY $="u "  OR  INKEY $="U" 
THEN  LET  z =d :  PRINT  "U" :  GO  TO 
4190 

4130  GO  TO  4160 

4120  BEEP  .  1  ,  a  +  b :  PRINT  AT  21,26 

4200  IF  SCREEN*  (r . c)  < >"  "  THEN 
LET  i$=" Occupied  square":  GO  TO 
bad 

4210  LET  m =3 - b  * ( n  >  b )  - b  *  ( n  > 3 ) 

4230  REM  **  Try  to  place  ship  ** 
42  40  FuR  x  =3  TO  m 

4250  IF  z=b  THEN  LET  Cl=C+X:  LET 
r  1  =r 

4250  IF  z  =d  THEN  LET  cl=C:  LET  r 
1  =  r  -  x 

4270  IF  SCREENS  (rl.cl) ="X"  THEN 
_LcT  i S  =  "0  f  f  the  board”:  GO  TO  b 
8  cf 

4-^30  IF  5CRFFN $  (rl.cl)  o'*  "  thf 
M  LaT  i$=" Over  laps  another":  GO 
TO  bad 

4290  REH  **  Check  neighbors  ** 
4300  LET  v =3 :  FOR  j=-b  TO  fa-  FOP 
k =-b  TO  b 

4310  IF  SCREENS  (rl+.t  ,  c  1  +  k  )  <>"  " 
THEM  IF  SCREENS  (  r  1  +  j  ,  C  1  +  k  )  r  •>  ”  X 
”  THEN  LET  v =b 
4320  NEXT  k  :  NEXT  .i 
4330  Ir  v  =b  THEM  LET  i $="Too  c  10 
se":  GO  TO  ba<j 
4340  NEXT  X 

4350  REH  ****  Hlace  Ship 
4350  FOR  X  =a  TO  m 
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4-370  IF_z=b  THEN  LET  Cl=C+X:  LET 
rl  =  r 

4-330  Ir  Z  =d  THEM  LET  Cl  =  C  :  LET  < 
l=r-x 

4-330  PRINT  AT  rl,  cl;  INK  b,n$(ri) 

4-4-00  NEXT  x 

4-4-10  LET  POS=po£+d 

4-4-20  PRINT  AT  20,pos;  PAPER  5;  I 
NK  b ;  n $  in.'  « 

4-4-30  NEXT  n 

4- 4- 4-0  FUR  X=1  Tu  100:  NEXT  X:  PET 
URN 

4.700  REH  Invalid  routine 
4-710  PRINT  AT  21  .  a  ;  INK  £  ;  PAPER 
d;i$;"  Try  again  " :  FOR  f =1 
T 0  3  :  BEEP  .  05  ..  3  :  BEEP  .05,12 
BEEP  .0b, 3:  BEEP  .05,12:  NEXT  f 
4-720  FOR  f=b  TO  100  :  NEXT  f:  PR  I 
NT  AT  2 1 , B ;  . j  $ 

4730  GO  TO  4-04-0 
5000  RbH  **  Coaputer’s  Ships 
5010  GO  SUB  3000:  LET  pos=3 
5020  PRINT  AT  13 , a ; "COMPUTER  SHI 
PS  now  positioned  :  ” 

5100  FOR  n  =b  TO  6 
b  110  LET  m  =3  -  b  -i  ( n  >  b )  -  b  *  (  n  >  3  ' 
bl20  LET  r  =INT  (RND-+  111—  m  i  )  +6  :  L 
ET  C  =INT  (RMD*  (11-Si)  j  +13 
5130  GO  TO  5200  +100-+  (RND  i  .  5) 

5150  LET  POS=po£+d:  BEEP  .2,12 
5160  PRINT  AT  20,pos;  INK  d;  FLA 
bH  b;n$(n) 

5170  NEXT  n 

bl30  PAUSE  20:  FOR  X  =b  TO  4-:  BEE 
P  .05,15:  eEER  .07,12:  NEXT  x •  P 
RINT  AT  21,14-;  INK  4- ;  FLASH  b ;  " D 


51y0  PAUSE  200:  RETURN 
5200  RtH  ***  Ship  horizontal 
5210  LET  n  =  r  :  FOR  X  =a  TO  Si:  LET 
Cl=C+X 

5220  lb  bCRtENS  (rl,  Cl)  O"  "  THE 
N  GO  TO  5110 

5230  GO  bUS  54-00:  IF  V  THEN  GO  T 
0  5110 
524-0  NEXT  X 

b-250  FOR  X=a  TO  Si  :  LET  k=(r+C+X) 
/2 

5250  PRINT  AT  r , c +x ;  INK  e;  BRIG 
HT  (  ( k  —  IN 7  k ) +d)  ; n  $  t n ) 

5270  NEXT  x 
52y0  GO  TO  5150 

5300  REH  *  +  *  Ship  vertical  y-s* 
5310  LET  Cl=C:  FOR  X  =a  TO  Si:  LET 
ri=r+x 

5320  Ii-  SCREENS  ( r  +X  ,  C  i  <>"  "  THE 
M  60  TO  5110 

5330  GO  SUB  54-00:  IF  v  THEN  GO  T 
0  5110 


534-0  NEXT  X 

5350  FOR  X  =a  TO  Si  :  LET  k  =  i  r  +  C  +X ) 
/2 

5360  PRINT  AT  r +x , c ;  INK  e;  BRIG 
HT  (  ( fc  -  INT  k )  -s  d )  ;  n  $  ( n ) 

5370  NEXT  X 
5390  GO  TO  5150 

54-00  REH  Check  comp's  neighbors 
54-10  LET  v  =a  :  FOR  -j=-b  TO  b :  FOR 
k  =-b  TO  b 

54-20  Ii-  SCREENS  (  r  1+  j  ,  C  1  +  k  )  '<  >  ”  " 
THEN  IF  bCREEN$  (  rl  +  .j  ,  Cl  +  k  )  <  >  “X 
"  THEN  LET  v =b 
54-30  NEXT  k  :  NEXT  j  :  RETURN 
6000  REH  Hit  ship  —  sound  effect 
6010  FuR  i =e  TO  a  STEP  - . 1 :  BEEP 
_ . 005 , i .  NEXT  i :  RETURN 
6500  REH  Hiss  —  sound  effect 
6510  FOR  i =a  TO  e*e:  NEXT  i:  BEE 
P  .3,3:  RETURN 

7000  REH  *-*■•*■  Input  c  o  -o  rd=  ■*•*■•* 
7010  LET  C=CODE  INKEt'$-62:  IF  C> 
34-  THEN  LET  C=C-32 

7020  IF  C  <3  OR  C  > 12  THEN  GO  TO  7 
010 


7030  PRINT  CHR$  (C+62); :  EEEP  .1 
,  e-b 

7040  LET  r  =CODE  INKEY$-42 :  IF  r  < 

6  OR  r>15  THEN  GO  TO  7040 

7050  PRINT  CHR$  lr+42) ; :  BEEP  .1 

.  e 

7060  RETURN 

3000  REH  *  Clear  bottom  lines  * 
3010  PRINT  AT  13  ,  a  ;  . j  $ ;  .j  $ ;  j  $ ,  . j  $  ; 
RETURN 

9999  CLEAR  :  SAUE  "battleship"  L 
INE  1:  PRINT  " REWIND  TAPE  AND  PR 
Ebb  PLAY  TO  UERIFY" :  UERIFr  " ” 
:  PRINT  ' "OK” 


-Works  with  all  printers  which  use*  the 
Centronics  parral lei  standard. 

-Includes  all  connecting  cables.  No  other 
purchaces  are  required. 

-Uses  the  LPRINT  and  LLIST  commands  directly 
from  basic.  No  USR  commands  necessary. 


-Allows  for  full  page,  high  resolution  graphic 
screen  copys. 

-Allows  for  full  page,  high  resolution  color 
screen  copys  using  a  grey  scale  system. 
Similar  to  the  Macintosh  screen. 

—Compatible  with  ALL  software  designed  for  the 
Aerco  Centronics  Interface,  e.g.  NSCRIPT » 


-Compatible  with  ALL  software  designed  for  the 
Tasman  Interface.  Including  Tasword  II.  CSome 
POKEs  are  necessary  to  customize  Tasman 
Software  to  the  Hacksel  Interface.  These  are 
included  of  course.) 


-Compatible  with  a  great  many  programs  that 
use  the  LPRINT  and  LLIST  commands  such  as 
VU-CALC  or  PRO-FILE. 

—Compatible  with  Omnicalc  II. 

-Quite  simply  the  most  compatible  printer 
interface  avai liable  for  the  Timex  2068!  And 
our  low  price  is  made  possible  the  fact  that 
the  Canadian  dol  I ar  is  at  an  al  I  time  record 
low!  (SI. 00  US  =S 1 . 40  CND) 


—Avai liable  in  two  types  of  boards. 

CARTRIDGE  BOARD  *9 “9 US 

REAR  EDGE  CONNECTOR  BOARD  _  S9US 

(please  add  S4.00  p&h) 

Send  Cheque  or  Money  order  to: 

Sockss!  Electronics 

247  QUEEN  ST.  WEST  TORONTO  ONT.  CANADA  M5Y  1Z4  (416)596-1663 


“I  told  you  it  was  expandable.” 


DGS  C2>n*eCT0% 


